home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 November / PCWorld_2007-11_cd.bin / v cisle / winuae / InstallWinUAE1440.exe / Amiga Programs / uae-configuration.s < prev    next >
Text File  |  2004-08-07  |  1KB  |  87 lines
  1.  
  2.     ; uae-configuration Amiga-side part
  3.     ; (c) Toni Wilen 2004
  4.  
  5. OUTBUFSIZE = 1000
  6.  
  7.     move.l a0,a3
  8.     move.l d0,d3
  9.     sub.l a4,a4
  10.     moveq #20,d7
  11.  
  12.     lea $f0ff60,a5
  13.     tst.l (a5)
  14.     beq.s end
  15.  
  16.     move.l 4,a6
  17.     lea dos(pc),a1
  18.     moveq #0,d0
  19.     jsr -$228(a6) ;OpenLibrary
  20.     tst.l d0
  21.     beq.s end
  22.     move.l d0,a4
  23.     move.l a4,a6
  24.  
  25.     moveq #-1,d6
  26.  
  27. loop
  28.     lea outbuf,a2
  29.     move.l #OUTBUFSIZE,-(sp) ;out len
  30.     move.l a2,-(sp) ;out
  31.     clr.b (a2)
  32.     move.l d3,-(sp) ;param len
  33.     move.l a3,-(sp) ;param
  34.     move.l d6,-(sp) ;index
  35.     moveq #82,d0
  36.     move.l d0,-(sp)
  37.     jsr (a5)
  38.     lea 6*4(sp),sp
  39.     move.l d0,d7
  40.  
  41.      ; do we have output?
  42.     move.l d3,-(sp)
  43.     tst.b (a2)
  44.     beq.s noout
  45.     jsr -$003c(a6) ;Output
  46.     move.l d0,d4
  47.     beq.s noout
  48.     move.l d4,d1
  49.     move.l a2,d2
  50.     moveq #-1,d3
  51. out1
  52.     addq.l #1,d3
  53.     tst.b (a2)+
  54.     bne.s out1
  55.     jsr -$0030(a6) ; Write
  56.     move.l d4,d1
  57.     lea lf(pc),a0
  58.     move.l a0,d2
  59.     moveq #1,d3
  60.     jsr -$0030(a6) ; Write
  61. noout
  62.     move.l (sp)+,d3
  63.  
  64.  
  65.     tst.l d7
  66.     bpl.s end
  67.     ; list all -mode
  68.     addq.l #1,d6
  69.     bra loop
  70. end
  71.     move.l a4,d0
  72.     beq.s end2
  73.     move.l d0,a1
  74.     move.l 4,a6
  75.     jsr -$19e(a6) ;CloseLibrary
  76. end2
  77.     move.l d7,d0
  78.     rts
  79.  
  80. dos    dc.b "dos.library",0
  81. lf    dc.b 10
  82.  
  83.     section 2,bss
  84.  
  85. outbuf
  86.     ds.b OUTBUFSIZE
  87.